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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITA L EQUIPHENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESER 


® 
® 
® 
® 
we 
THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NO TICE, THIS SOFTWARE OR “ANY. OTHER = 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS HEREBY = 
TRANSFERRED. * 
w 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. . 
if 
® 
® 
® 
® 
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FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 

THIS wits tye br SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS78 TO TEST SUCCESSFUL 
OPERATION OF THE SLK/ULWSET SYSTEM SERVICES. EACH SERVICE IS INVOKED 
UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONLY 
SUCCESSFUL STATUS CODES ARE EXPECTED IN THIS TEST MODULE. CORRECT 
Faccian's OF oe od cf FOR EACH OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR L STATUS CODE, EXPECTED RETURN ARGUMENTS 


AND EXPECTED FUNCTIONAL ITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: APR, 1978 
MODIFIED BY: 


- : VERSION 
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4 -SBTTL DECLARATIONS 
; INCLUDE FILES: 

SPRVDEF 

SPHODEF 

SPSLDEF 
MACROS: 


EQUATED SYMBOLS: 


WDONOUE WN" OOOnNOu 
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SATSSS78 SA 
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SReSsatsss 8. MAR; 1 den ad 


T MODULE NAME 
T pon yee NAME DESCRIPTOR 
TIONS :> 


7 .PSECT RODATA, RD, NOWRT .N OF XE .LONG 
- TEST_MOD'NAME:: STRING ; TEST MODUL 
TEST“MOD-"NAME_D: STRING Ec eSATSSSTBS TES 
74 MSGIZINP-CTL:~ STRING I,< S$iUw! 42u: iolsi I 
75 ; FAO CTL STRING FOR MSG1 IN SUCCOMMON. MAR 
i: MSG3_ERR_CTL:: STRING I,< *SSLUW!42W: 'AS> 
7 ; FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
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SATSSS78 SATS SYSTEM SERV TESTS $LK/ULWSET (SUCC 16-SEP=1 AX/VMS Macro V04- Page 5 
y042000 CONDITION TABLES g- SEF of 8} i § UETPSY.S Hat aeares 2 MAR; 1 eid 
5 .SBTTL CONDITION TABLES 
§ : etext CONDITION TABLES FOR LKWSET/ULWSET SYSTEM SERVICES seeee 
1 § : COND 1 QUAD <INADR> 
1 0 URRENT IMAGE PAGE> , = 
1 91 <PROGHA M REGION = - SINGLE P 
1 96 <PROGRAM REGION = UTIPLE MBacES>, « 
1 9 <CONTROL REGION == SINGLE PAGE>,- 
o1 34 <CONTROL REGION == MULTIPLE PAGES>,- 
0000000° '00c46 39 LONG TM. SETUP, TM_SETUP 
gooonnnaooonnn BMRERSS: annnERs: Rt tM Ute 
00000000 ' 00000000 00000000" 00000000" oC a 
$e 12 : COND 2, -NOT ARG. <PAGE OWNER ACCESS MODE>,- 
OEC 181 <EXECUTIVE>,= 
DOE 1 ‘ <SUPERVISORS, < 
BoEE : 7 <USER>,= 
00000000 01 : 105 LONG PSL$C_KERNEL 
90000001 139 (1 6 LONG PSLS$C"EXEC 
9000008 13D 19 LONG PSL$C~SUPER 
0000000 141 108 “LONG PSL$C"USER 
145 110° COND 3,LONG,<ACMODE>,- 
0145 «111 <KERNEL>, = 
145 118 <EXECUTIVE>,- 
145 «11 <SUPERVISOR>, = 
145 11% <USER>, = 
90000000 17 118 LONG PSL$C_KERNEL 
0000001 189 11 LONG PSLS$C~EXEC 
900000 1 118 “LONG PSL$C~SUPER 
000000 A 119 “LONG PSL$C"USER 
E Be COND 4,NULL 
F COND 5,NULL 
00000000 125 .PSECT SATSSS78,RD,WRT,EXE 
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ANUP ey 7 8:93:38 DE TPSY . SAE ISATSSS oD. MAR: 1 aad 
- .SBTTL TM.SETUP, TM_CLEANUP 
; FUNCTIONAL DESCRIPTION: 
: TM_SETUP AND TM_CLEANUP ARE CALLED TO PERFORM 
$ REQUIRED HOUSEKEEPING AT THE BEGINNING AND END, RESPECTIVELY, OF 
: TEST MODULE EXECUTION. 
; CALLING SEQUENCE: 
; BSBW TM_SETUP ®8SBW TM_CLEANUP 
: INPUT PARAMETERS: 
: NONE 
: IMPLICIT INPUTS: 
: NONE 
: OUTPUT PARAMETERS: 
: NONE 
> IMPLICIT OUTPUTS: 
; TM_SETUP: COND TABLE INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
; ALL PRIVILEGES ACQUIRED. 
! COMPLETION CODES: 
: EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
: SIDE EFFECTS: 
: SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
: (VIA RSB) IF ERROR ENCOUNTERED. 
TM_SETUP: : 
CLRL Re ; INITIALIZE 
CLRL OR + .. CONDITION 
CLRL RG : ii.. TABLE 
CLAL RS e #00088 INDEX 
CLRL RO 5 ccc ccene REGISTERS 
BSBW  § MOD_MSG PRINT : PRINT TEST MODULE BEGIN MSG 
MOVAL TEST ROB suct TMD_ADDR : ASSUME END MSG WiLL SHOW SUCCESS 
INSV  #SUCCESS7#0,#%,MOD_MSG_CODE ; ADJUST STATUS CODE FOR SUCCESS 
MODE  10,5$,KRNL ; KERNEL MODE TO ACCESS PHD 
MOVL aa#CTL$GL_PHD,RO : GET PROCESS HEADER ADDRESS 
MASK ; GET PRIV MASK ADDRESS 


MOVAL PHD$O_PRIVMSK(R9) .PRIV 
MODE  FROM,5$ ; BACK TO USER MODE 
PRIV ADD, ALL ; GET ALL PRIVILEGES 
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slo 


ETPRN S rest MOD _NAME _D 
CHECK NORMAL 


5 
TUP, 
? 
4 
05 f 
FF4A' 30 008 W MOD_MSG_PRINT 
05 6 
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SATSSS78 SATS SYSTEM SERV TESTS SLK/ULWSES (SUCC 16-SEP-1984 01:03:16 VAX/VMS Macro V04- Page 9 
9042000 CONDITION SUBROUTINES = SETUP AND CLEANU met 7 8:93:38 Se Te ey. Rea SAY SSS So. MAR:1 * 
0B 1 C 47 BEQL §COND2X : YES == NO CONFLICT 
00000000"EF  00000000'EF $3 O¢7 48 MOVB ONES, CONFLICT : NO == INDICATE CONFLICT BECAUSE ... 
D 49 t wee CURRENT IMAGE PAGE MUST BE USER 
D ; COND2X: 
05 p eee ; RETURN TO MAIN ROUTINE 
05 op 35 Sy RSBO ; RETURN TO MAIN ROUTINE 
00000135"EF43  Q000017E'EF44 01 gp4 5 " CMPL = ACMODELR4J, COND2_ECR31 ; IS RTT ErebEAS ottek #2 
0B 15 O01 25 BLEQ  COND3X : YES <= THAT'S Ok ac 
Q0000000'EF  O0000000'EF 90 OES 38 MOVB § ONES,CONFLICT : NO == INDICATE CONFLICT 
05 OOFE 500 -ONDSX: ; RETURN TO MAIN ROUTINE 
OOEF 61 COND3_CLEANUP: : : 
05 OEF 6g R ; RETURN TO MAIN ROUTINE 
Ae 1 £8: dreantuast 
05 ita 8? waiting WE: RETURN TO MAIN ROUTINE 
OOF 67 CONDS:: ; 
0S OOF 68 RSB ; RETURN TO MAIN ROUTINE 
OOF 369 CONDS_ CLEANUP: : 
05 O0F 70 RSB ; RETURN TO MAIN ROUTINE 


RETURN TO MAIN ROUTINE 
| 
| 
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SATSSS78 SATS SYSTEM SERV TESTS SLK/ULWSES (SUCC 16-SEP-1984 AX/VMS ro V04- Page 10 
v04- FORM_CONDS eset 8} 3: 38 UETPSY.S Bae Ayes S.MAR: 1 . (1) 
Fé _ .SBTTL FORM_CONDS 
ce oe 3 * FUNCTIONAL DESCRIPTION: 
F4 76: M_CONDS FORMATS AND PRINTS I NF ORMATION ABOUT 
Ore y ; THE CURRENT ELEMENT IN EACH OF THE CONDITION TABLES. 
ore 79 : CALLING SEQUENCE: 
OFS 9 3 
OFS 1; BSBW FORM_CONDS 
OFS ¢ ; 
ae Z : INPUT PARAMETERS: 
OFS 5: NONE 
OFS 6; 
ae fi 3; IMPLICIT INPUTS: 
OOF 4 89 ; R2,3,4,5,6 CONTAIN CURRENT .C CONDITION TABLE INDEX VALUES 
00F4 290: FOR COND TABLES 1 1,2,3,4,5, RESPECTIVELY. 
OOF 4 91; FOR X = 1,2,3,4, 
OF 3¢ ; CONOX.T’= TITLE TEXT FOR CONDX TABL 
OF4 93 ; CONDX"TAB - ELEMENT TEXT FOR CONDK TABLE 
OOF 4 9% ; CONDX"C = CONTEXT THE CON 
Boca + ; CONDX_E = DATA ELEMENTS OF WHE LOND TABLE 
OOF 4 97 : OUTPUT PARAMETERS: 
OOF4 98 ; 
OOF4 99 : NONE 
OOF4 00 ; 
OOF4 91 : IMPLICIT OUTPUTS: 
OOF4 ¢ 3 
OOF4 03 ; NONE 
OOF4 04; 
OOF 4 0S ; COMPLETION CODES: 
OOF 4 06 ; 
OOF4 07 ; NONE 
OOF4 08 ; 
OOF4 09 ; SIDE EFFECTS: 
OOF4 10; 
OOF4 1; NONE 
OOF 6 12 : 
OF4 13 3-- 
OOF4 14 
OF4 15 
F4 1 
OF4 17 FORM_CONDS: 
OF4 18 SFA AO. S MSG1_INP_CTL,FAO_LEN, FAO.DESC.T TESTNUM 
1 1 | FORMA CONDITIONS HEADER MSG 
FEEA" 39 11 0 BSBW § OUTPUT_MSG : PRINT 
1 116 1 CMPB = #@COND 1" C , #NULL : is CONDITION 1 hULL ? 
0 12 011 g BNEQU ; NO == CONTINU 
00D 31 118 t aoe Rw FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
18°EF OD 11 5 MOVAL COND} ; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
OOBpOODO EF no gUBetE EE 06 1 3 $ MOVL OND1~ cTABER?] MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 
00000000 ' EF 9 3 , #CON ¢ ¢T CONDITION 1 CONTEX FAO 


MOVB ONDT_C TXT” SAVE T F 
MOV_VAL COND1_C, EONDT. EtR2), MSG bata: GIVE COND 1 DATA VALUE TO FAO 


<n 
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SATSSS78 SATS SYSTEM SERV TESTS $LK/ULWSET (SUCC 16-SEP-1984 01: AX/VMS Macro V Page 11 
v04=000 FORM_CONDS -SEP-1984 8} te 38 UE TP SY. eRe aSAY SSeS. mat” ty 
FEBS' 30 148 3 BSBW WRITE_MSG2 ; FORMAT AND WRITE CONDITION 1 MSG 
14 1 0148 CMPB =, #COND2_C, #NULL : 18 CONDITION 2 NULL 
1 14 1 BNEQU + NO == CONTINU 
00A2 3 i a BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
00000000°EF — QOOO00EC'EF DE 1 nA MOVAL COND sffst ; SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000'EF 00000104 "EF43 p 15 a MOVL COND Sti R34] MSG. ; SAVE ADDR OF COND 2 CURR TEXT ELT FOR FAO 
00000000'EF 00 90 164 g MOVE a SAVE CONDITION 2 CONTEXT FOR FA 
171 MOV_VAL COND2_C ef NDZ. ATs, MSG_ BATAT GIVE COND 2 DATA val TO FAO 
FEBC' 30 171 & BSBO URITE “MSG ; RAT A AND D AI TE. CO CONDITION MSG 
14 04 1 0174 9 CMPB #COND3_C,#NULL : A 
03 1 177-340 BNEQU 308 + NO == ONO ANT INU 
00 z 129 41 oa BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
00000000' EF 9000014 4S'EF DE te rk MOVAL COND off! : SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
QOO00000"EF — QODDDI4D'EF44 D0 0187 344 MOVL COND sti Ra MSG_B ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
Q0000000'EF 04 90 0193 345 MOVB aconps G_¢TxT™ SAVE CO DITION 3 CONTEXT FOR FAO 
19A 46 MOV_VAL C t éo NDS. ECR4J,MSG_ BATAT GIVE COND 3 DATA VALUE TO FAO 
FES7" 30 1A6 4 SBO so WRITE MSG FORMAT AND URITE CONDITION 3 MSG 
“ 4% OF OIA 48 CMPB  - #@CONDS_C, #NULL + IS CONDITION 4 NULL 
47 13 O1AC 349 BEQLU F RM CONDSX : YES == SUBROUTINE is” FINISHED 
00000000'EF 0000018E'EF De 1AE 350 MOVAL CON seas : SAVE ADDRESS OF CONDI TION 4 TITLE FOR FAO 
Q0000000'EF  OO00018E'EF4S DO 0189 351 MOVL cone? “tie R54] NSG_B ; SAVE A R OF COND 4 CURR TEXT ELT FOR FAO 
Q0000000'EF 14 90 O1C5 5 MOVE  #CONDS C,MSG CTX vE CONDITION 4 CONTEXT FOR FAO 
ice 5 MOV_VAL COND4_C ONDE etRsd, MSG batat: GIVE COND 4 DATA VALUE TO FAO 
FE31" 30 O1CC 354 BSBQ  WRITE~MSG2 FORMAT AND URITE CO CONDITION 4 MSG 
16 146 91 O1CF 355 CMPB = #CONDS_C, #NULL t IS CONDITION 5 NULL 
21 13 O1D2 «356 BEQLU FORM CONDSX : YES == SUBROUTINE IS" * FINISHED 
QOOOD000'EF  OOOO01IBF'EF DE 0104 357 MOVAL CONDS_T,MSG_A : SAVE ADDRESS OF CONDITION ON 5 TITLE FOR FAO 
00000000'EF  O000018F'EF46 DO O1DF 358 MOVL COND TABEREJ mSG_8 ; SAVE ADDR OF COND 5 CUR TEXT ELT FOR FAO 
00000000'EF 14 90 OTE 59 MOVE  #CONDS_C SAVE CONDITION 5 CONTEXT FOR FAO 
O1F 60 MOV_ VAL CONDS — 2EONDS “EER, MSG_ baal GIVE COND 5 DATA V ALUE TO FA 
FEOB' 30 O1F 61 BSB WRITE" : FORMAT AND ORITE CONDITION MSG 
O1F 6¢ FORM_CONDSX: 
0S O1F é RSB ; RETURN TO CALLER 
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SATS S$ & 
VERIFY -SEP=1 UETPSY.SRCJSA OES 98. MAR: 1 ) 
1F 4 3° 
fe 338 
fe 58 
176 6 VERIFY:: 
00000000" EF i 1F6 4 STB CFLAG : SHOULD CONDITIONS BE PRINTED ? 
FEF3) 3 EE 4 : is BSBW FORM_CONDS : YES -= FMT & PRINT ALL CONDS FOR THIS T.C. 
01 431; 
4 ; : SET UP INADR ARGUMENT IN COND 1 TABLE BY ISSUING SEXPREG 
52 D5 1 463 TSTL OR : FIRST COND 1 ELEMENT 27 
03 «12 ; 435 BNEQ 10% + NO == CON 
00a, «31 03 4 : sl BRW 40$ t YES == INADR ALREADY SET UP 
000000C4"EF42 7C 0208 3s " CLRQ~—sINADRER2] ; CLEAR SEXPREG RETURN AREA 
OOOOOOOC'EF 04 OOF 4 CLRL REGION ERG + ASSUME PROGRAM REGION 
00000008" EF 01 9A 0215 440 MOVZBL #1,PAGCNT_ERG t se. AND SINGLE PAGE COUNT 
2 32 D1 O21C 441 CMPL  R2.#2 : IS IT PROGRAM REGION ?? 
07 #15 OIF 44 BLEQ Ss : YES == GO CHECK PAGE COUNT 
QOOODOOC'EF 01 OA 0 i 443 ¥e MOVZBL #1,REGION_ERG : NO == MUST BE CONTROL REGION 
01 52 D1 0228 445 "MPL R2 #1 : IS IT SINGLE PAGE ?? 
OC 13 0228 446 BEQL § : YES -- GO ESTABLISH MODE 
03 $6 D1 0220 44 CMPL = R2, #3 : COULD STILL BE SINGLE PAGE 
07 «+13 «0 448 BEQL 2 : IT IS == GO ESTABLISH MODE 
00000008'"EF OA 9A 0 449 jr MOVZBL #10,PAGCNT_ERG + MULTIPLE PAGES 
0239 451 "MODE ~—s- T0,, 30$ , KRNL ; GET KERNEL MODE, SO ACMODE ARG WORKS 
025¢ 43¢ SEXPREG_S REGION=REGION ERG PAGCNT=PAGCNT ERG, - 
025¢ 45 ACHODE=COND2_E R34, RETADR=INADRER2 
0270 454 MODE _— FROM, 30$ ; BACK TO USER MODE 
O27— 455 SS_CHECK NORMAL + CHECK FOR NORMAL STATUS RETURN 
RAE £85 0s: 
9 AC 438 t eeeeee SYSTEM SERVICE CALLS WHICH ARE THE SUBJECT OF THIS TEST CASE **eeee 
AC 460° MODE _—‘ T0, 50$, KRNL : GET KERNEL MODE, SO ACMODE ARG WORKS 
CF 461 SLKWSET_S {WADR= INADRCR2] RETADR=RETADR, - 
CF 46¢ ACMODE=ACMODELR4) ; ISSUE SUBJECT SERVICE 
EA 46 MODE FROM : BACK TO 
00000000'8F 50 EB 464 CMPL RO,#SS$_WASCLR + CODE RECEIVED = CODE EXPECTED ? 
1 13 Fe 465 BEQLU > YES == CONTINU 
00000000 ' EF 90000000" D Fe : MOVL #SS$_WASCLR,EXPV t NO <= LOAD UP EXPECTED AND ... 
00000000'EF 50 DO OFF 46 MOVL __RO,RECV * ... RECEIVED VALUES, THEN EXiT 
06 ies ae ERR_EXIT LONG, <INCORRECT STATUS CODE RETURNED FROM LKWSET> 
4 3 ; 
32 £39 : COMPARE INADR AGAINST RETADR (EXCEPT LOW-ORDER 9 BITS) AND, 
f 42g : IF OK, GO ISSUE SULWSET. 
? OOC4"EF42 7D 47% ° MOVQ _—INADRER2].R7 : GET INADR PAIR INTO REGS 
’ 7 0990 17 . $ EF 33 475 EXTZV sash RT R7 > SHIFT RIGHT 
57 00000010"eF 17 03 FD 62 476 CRPLV ris! *RETADR,R7 : INADR = QRETADR (FIRST OF PAIR) 2? 
58 58 17 O09 EF O036D 478 EXTZV #9,#23,R8,R8 : SHIFT RIGHT 9 BITS 
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v0“-000 


58 OO000014"EF 17 03 
6 
42 
EF 


700000000"EF 90000015" 
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50 

61 

00000000°EF — 00000000" SF 
QO000000"EF 50 


"EF42 
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13 
09 
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OOCOO000"EF # 000000C4'EF 
00000000"EF 00000010" 
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-SEP=1 UETPSY.SRCIJSATSSS ) V 

CMPZV #9,#23,RETADR+4,R8 ; INADR = RETADR (2ND OF PAIR) 22 
BNEQU 4 t NO == ERR 

a BRW 80$ : YES == SKIP ERROR PROCESSING 

"  MOV@——sNADRER27, EXPV ; LOAD UP EXPECTED A 

MOVQ _RETADR,RECV RECEIVED VALUES. THEN EXIT 
ERR_EXIT QUAD, <UNEXPECTED VALUE From’ LKWSET FOR>,- 

rot < RETADR PAIR> 


; SET UP TO ISSUE SULWSET 


MODE _‘T0,90$ GET KERNEL MODE, SO ACMODE ARG WORKS 
SULWSET_S SPENADRSINADRERZI RETADR=RETADR = 
SSUE SUBJECT, SERVICE 


MODE FROM,90 ; BA CK 

CMPL RO, #SS$_WASSET 3 CODE RECEIVED = CODE EXPECTED ? 
BEQLU = 106$ : YES ~- CONTINU 

MOVL #SS$_WASSET,EXPV ; NO == LOAD UP EXPECTED AND . 
MOVL RO,RECV RECEIVED VALUES, THEN EXiT 


1008: ERR_EXIT LONG, <INCORRECT STATUS tobe’ RETURNED FROM ULWSET> 


3 ioe INADR AGAINST RETADR (EXCEPT LOW-ORDER 9 BITS) AND, 
: IF OK, VERIFY ROUTINE IS COMPLETE, GO DO ANOTHER TEST CASE. 


mova INADRER2].R? wR? : GET INADR PAIR INTO REGS 
EXTZV #2 : SHIFT RIGHT 9 BITS 
CMPZV fi #23. Reteon, R7 ; INADR = RETADR (FIRST OF PAIR) 7? 
EXTZV 49.423, R8 : SHIFT RIGHT 9 BITS 
CMP2V #9 8 RET AOR SS RE : INADR = RETADR (2ND OF PAIR) ?? 
BNEQU 116$ : NO == ERROR 
a BRW VERIF YX : YES == SKIP ERROR PROCESSING 
5 mova INADRCR2],EXPV ; LOAD UP EXPECTED AND . 
MOVQ _RETADR,RECV RECCIVED VALUES, THEN EXIT 
ERR_EXIT QUAD, + SUNEXPECTED VALUE From’ ULUSET FOR>, = 
VERIFYX: 


RSB ; RETURN TO CALLER 


REQUIRED 


AN 
EXIT 
ING, 


CLEANUP MUST 
(IF 
ERR 
I$ 
ESS 
AN 


ETY 
0 
H 


a 
R 
VICES TO UNDO THE 
R 


NE. VFY 
YES == NO PAGES TO DELETE 


on ABLE INDEX VALUES 


E 
Dd 
I 
Pp 
ITION T 
RESPECTIVELY. 
; NO =~ CONTINUE 


; FIRST COND 1 ELEMENT ?? 


1 
Y 
U 
a 
L 
D 
E 


9 

9 

T 

E 

Ss 
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E 

RROR. 
RENT CON 
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IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 


ARGUMENT, THE ARGUMENT NAME MAY BE USED AS A SYNONYM 


FOR CONDX_E. 


f 
R 
; OUTPUT PARAMETERS: 


22> UD 
z= «vd 


E'= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 


ERROR ENCOUNTERED. 


tuce Ig 
5,6 CONTAIN C 
OND TABLES 1 
x 
VF Y_CLEANUPX 


SS_cHEC An ERR_EXIT MACROS CAUSE PREMATURE EXIT 
R 
ibs 


EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
K 
(VIA RSB 


SBTTL VFY_CLEANUP 
; SIDE EFFECTS: 


; FUNCTIONAL DESCRIPTION: 
H 
U 
P 
T 
" 
§ 
BSBW VFY_CLEANUP 
; INPUT PARAMETERS: 
CLEANUP: : 
TSTL 
BNEQ 
BRW 


F 
H 
E 
Vv 
F 
: CALLING SEQUENCE: 


NONE 
; IMPLICIT INPUTS: 
R2 
0 
NONE 
IMPLICIT OUTPUTS 
; NONE 
COMPLETION CODES 


;++ 


§ vy 


NPN FN OR COD e— OPT NOR. CDA Oe CIPI NOR. OA Oe CUP TIN OR. ODO CUM TIN OR. OOO 
NOGGIN OVE VPP VPI SF AF NST ST ST AT ST TT TANUAIAAUNUALAUIN OOO CGOOO0O0OOF.F.. 
LVLVLVLULVL LVL VL UL VEL UL ULL VELL VEL VELL VEL VELL VELL VELL VELL ELVES LVL WALES LVL ELAS LLL LAL LAL ALLL LLL ALLIEN 


7? 
7 
74 
75 
7? 
7 


LLL VLULVLVLVLVLVLVLVLVLVLVLVLVELVELVL VL VEL ULL VEL VEL VL VELVELV ELVES VELL LVL VEL VL VELL VELL VALVES ELVES VALVES VEL EL ELVES VELL VELL Pe OP 6 


LLVLVAVLVLVLVLVLVLVLVLVLVLVULVLVELVLVELVLVELVLVELVELVELVELVELV LVL LVL LVL VL VEL VELL ELV ELV ELV EL ELVES VEL VEL LV ELV LVL VL VL SVL LLY 
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VF Y_ CLEANUP 


K 4 
SAS EER Serv reste, uxrusel luce NgSR—TaBe LARS RIO USERS ass PO If 


saat 


57 000000¢4 EF 42 ¢ f MOVQ —INADRER2),R7 : AVOID INDEX MODE, USE R 
¢ sit Ri ; PID SEXPREG GET Some sPace ABOVE ?? 
00 3 9 1 BRW VF Y_CLEANUPX t NO == NO PAGES TO DELETE 
B : f ODE T0,30$,KRNL ; KRNL MODE TO DELETE ACQUIRED PAGES 
E 4 SDELTVA_S INADR=INADR Re) - 
§ 3 — FROM 4 RODE=COND¢_ELAS] : BACK TO USER MODE 
76 5 SS CHECK NORMAL t CHECK RETURN STATUS VALUE 
SAG 3 VFY =CLEANUPK: 
05 2A4 ; RETURN TO CALLER 
AS 0 wi 
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SATSSS78 SATS SYSTEM SERV TESTS SLK/ULWSET (SUCC 1g-SEB-1986 01:03:16 Tee at Ato oe 
Symbol table 

eeeeenee x 4 
$$$$ s 4DD R 04 EXPV eeeeenee xX 4 
SSSCHARS - ay ee eeeeeree x 4 
Sse cnanes . FORA_CONDS OF4 RG 4 
Ssscuans = A FORM” CONDSX 1FS R $ 
SSSCHARSG = 4 INADR ‘ ce ' 
SSSCOND A . : MOD_MSG_CODE eeeeeene x 4 
SeESTnine . 1 MOD-MSG- PRINT aeerenee =X 4 
sessieings . 5 MSGT_INP.CTL 0000019 R 2 
oo 8 0 MSG3-ERR-CTL 0000039 RG 
set) “4 4 MSG A = geeeeeee Xx 4 
Aens § 03 MSG"B aeeeenee =X 4 
Byte 8 001 R MSG_CTXT aeeeeeee § X 4 
PruA P Secceeke 04 MSGuDATAT ereeeeee 06 
EMARS essences fA NOTERG = 00000000 6 
CHR CO eeeeeene 8 = 00000014 G 
CHM_CONT eeerenee x 6 NULL 00000014 ! . 
ior 00000087 Rc” 04 OUTPUT_MSG aeeeeeee =X 4 
sient Mittaitaa PAGCNT_ERG 00000008 R 03 
CONDI 7 F H RG 04 PCV ~*~ aeeeeeee =X 04 
ele inte R 0 PHD$Q_PRIVMSK = 00000000 
yt aS 4 RG $3 PRIVMASK : 900 909 R 03 
cot SOONOIE ROS PROCESS ERR secceees of OS 
yt aad bo0n0R9 RG 04 PSL$C_EREC Es +4544 01 
COND x BON8 D2 R 04 PSLSC KERNEL . ae 4 
COND S . 0990009 RG 04 Pet Se"USER = 0000000 
CONDSTEC ee 0 QUAD ~ = 00000008 G&G 
FONDS 90000108 RG 8 Recy Seececss Os 
EONDST 8590 OEC R 03 REGION_ERG 0000000C R 03 
CONDE 6 154 R 03 REST_REGS aeeeeeee§ X 04 
fONDS7 Oe $0 D4 RG 4 RETABR 00000010 R 03 
fOND $09 R $2 SAVE_REGS aeeeenee = X 04 
fOND3. $09 ff SS$_RORMAL eeneeeee XX 04 
COND 3 = BOSOOSEE 04 SS$-WASCLR eeeereee x 4 
CONO3_ CLEANUP oleae RG S$-ASCLE nei re 
CONDS_ 0000017E R 83 1h poten r 
COND 28 80 145 y 3 SYSSCMKRNL eeerenee GX 4 
EONS ite 3 SYSSDELTVA eeereree GX 4 
9 $0 orp 4 SYSSEXPREG aeeeeere GX 4 
CONDS $0 re se SYS$FAO aeeeeeee x 4 
CONDa ne = Doo poE 4 SYSSLKWSET aeeeeeee GX 4 
COND“ 6 be Re 8 SYSSSETPRN aeeeeere GX 4 
CONDS-T R SYSSSETPRV aeeeeeee GX 4 
CONDa aT 8001 BE R : SYSSULWSET aeeeeeee GX 4 
f — OF RG 4 TESTNUM aeeeeeee =X 4 
yon C = 1 TEST_MOD_NAME ts 4 Be 3 
COND5~ CLEANUP F3 RG 4 TEST WOO NARE _O 00000009 R 
cone t 1 F - TMD_ADDR™ aeeeeeee =X 4 
COND st 18F R Tm_CLEANUP RG 4 
cert eeeeee 8 6X 4 TM” SETUP RG 4 
SoMEL TCT — * 4 VERIFY F6 RG 4 
bese - G0000010, vende eRe i 
EFLAG eeeeeeee KX 04 VF Y_CLEANUP 
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Ma 
Symbol table “SEP-1 UETPSY.SRCJ 


yong eANUPR = 80000608 “g 
WRITE_MSG2 teeeeeee 


teescce aereweceras 


! Psect synopsis ! 


poem ee wenn ware moh 


PSECT name Allocation PSECT No. Attributes 
000000 ( -) 00 ¢ QO.) NOPIC  USR ABS LCL NOSHR NOEXE NOR 

SABSS 8 ( -) Q1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE R 
RODATA ( 8 os § ( -) NOPIC USR CON REL LCL NOSHR NOEXE R 
RWDATA 0 19 ( 400.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE R 
SATSSS78 OOOO00SAS ( 1445.) 04 ( 4.) NOPIC USSR REL LCL NOSHR’~ EXE 

Foe weceoeeeeeoeeeeeoooeoes} 

: Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization Q: 


oe processing 
paces table sort 
Symbol table output 


9:00:00. 
ate 
3 


89 : 
tae f 


1 
1 
3 
0 
0 
4 


Psect synopsis output 

Cross-reference output ; 3: 

Assembler run totals 59 

The yorting set Limit was 900 pages. 

38235 bytes (75 pages) of virtual memory were used to buffer the intermediate s3¢ e. 

There were 20 pages of symbol table , ace allocated to hold 346 non-local ane 48 local symbols. 


source Lines were read in Pass 1, producing 24 object records in Pass 
37 pages of virtual memory were used to define 28 macros. 


+ 
! Macro Library statistics : 


) acne tl A cheteetireth. Mateos eeeececee 


Macro Library name Macros defined 
=$33580ung8: 8 Pretend -MLB; : 7 
$583$puA SYSLI TBISTARLET. ius; 32 13 
TOTALS (all rsrts 2 


671 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SATSSS78/0BJ=0BJ$:SATSSS78 MSRC$:SATSSS78/UPDATE=(ENHS$: SATSSS78) +EXECML$/LIB*SHRLIBS$:UETP/LIB 


. NOWRT NOVEC BYTE 


RD WRT NOVEC BYTE 


cro V04- Page 18 
oA eSsoB.maR:1 ° (1) 


4 


NT CORPORATION 
D PROPRIETARY 
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